home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 06 CAD / CADFIG.BIN (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  2KB  |  53 lines
  1. 1 POKE40448,255:FORT=1TO4:READA:POKE828+T,A:NEXT:GOTO15
  2. 2 DATA46,70,73,71
  3. 3 X=X+USR(121):Y=Y-USR(122)
  4. 4 IFX>331THENX=X-320
  5. 5 IFX<12THENX=X+320
  6. 6 IFY>239THENY=Y-200
  7. 7 IFY<40THENY=Y+200
  8. 8 A=USR(34),X,Y,0:A=USR(34),16,Y,6:A=USR(34),X,231,7:RETURN
  9. 9 OPEN15,8,15,"I":CLOSE15:RETURN
  10. 10 A=USR(117):IF(A<>16)ORF=0THENRETURN
  11. 11 IFPEEK(O-5)=1THENC=1:GOTO33
  12. 12 SYS36864:POKEO-3,0:IFX>267THENPOKEO-3,1:POKEO-2,X-268:GOTO14
  13. 13 POKEO-2,X-12
  14. 14 POKEO-4,Y-40:POKEO-5,1:SYSO:RETURN
  15. 15 A=USR(33),0:A=USR(34),0,Y,6:A=USR(34),X,255,7:A=USR(0),0,1,4
  16. 16 A=USR(21):A=USR(17):A=USR(19):A=USR(1):O=3600:F=0:C=0
  17. 17 GOSUB9:PRINTCHR$(14)"[147][198]ILE DISK IS IN DRIVE:  ";D1;
  18. 18 GETA$:IFA$=""THEN18
  19. 19 IF(D1=8)AND(A$="9")THEND1=9:POKE36863,D1
  20. 20 IF(D1=9)AND(A$="8")THEND1=8:POKE36863,D1
  21. 21 PRINT"[157][157]";D1
  22. 22 PRINT"[147]":A=USR(0),1,7,14:A=USR(1):A=USR(16):GOSUB9
  23. 23 R=1:T=18:POKEO-1,R:A=USR(39),0,18:A=USR(32),0
  24. 24 GOSUB10:GOSUB3:GETA$:IFA$=""THEN24
  25. 25 IFA$="\"THENR=R+1:T=T+1:IFR=5THENR=1:T=18
  26. 26 IFA$="\"THENA=USR(39),0,T:POKEO-1,R:GOTO24
  27. 27 IFA$=""THENSYS36885:GOTO24
  28. 28 IFA$=CHR$(13)THEN36
  29. 29 IFA$="!"THENSYS36867:GOTO24
  30. 30 IFA$="$"ORA$=CHR$(34)THEN24
  31. 31 OPEN15,D1,15,"I0":POKE828,ASC(A$):POKE40448,255:SYS36903
  32. 32 INPUT#15,E:IFE<>0THENPRINT#15,"I0":CLOSE15:F=0:GOTO24
  33. 33 CLOSE15:F=1:POKEO-2,12:POKEO-3,0:POKEO-4,10:POKEO-5,0:SYSO
  34. 34 IFC=1THENC=0:RETURN
  35. 35 GOTO24
  36. 36 A=USR(33),0:A=USR(34),0,Y,6:A=USR(34),X,255,7:A=USR(0),0,1,4
  37. 37 A=USR(1):A=USR(17):A=USR(19):A=USR(21):GOSUB9
  38. 38 PRINT    
  39. 12584 4);:IFD0=D1THENPRINT"[201]NSERT [208]ROGRAM DISK AND"
  40. 39 PRINT"[208]RESS A KEY."
  41. 40 GETA$:IFA$=""THEN40
  42. 41 OPEN15,D0,15,"I0"
  43. 42 OPEN2,D0,2,"CMND,P,R"
  44. 43 CLOSE2:GET#15,E
  45. 44 CLOSE15
  46. 45 IFE<>0THENPRINT"[208]ROGRAM DISK NOT PRESENT.":GOTO40
  47. 46 PRINT"[147]":A=USR(0),1,7,14:A=USR(1):A=USR(16):A=USR(39),0,16:GOSUB9
  48. 47 LOAD"CMND",D0
  49. 48 MODIFIED FROM STEPHEN NYE'S "F"
  50. 49 MACHINE CODE BY BRENT DANE
  51. 50 HOUSTON, TX  713-791-9695
  52. 51 COMPU-SERVE  #71320,333
  53.